home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / ETEST8.TRP < prev    next >
Text File  |  1995-03-07  |  475b  |  22 lines
  1. var
  2.         b : bool = false;
  3. endVar
  4.  
  5. procedure main
  6.         if (b) 
  7.                 writeln('A');
  8.                 if (not b)
  9.                         writeln('E')
  10.                 else
  11.                         writeln('F');
  12.                 endif
  13.         else
  14.                 if (not b)
  15.                         writeln('B')
  16.                 else
  17.                         writeln('C');
  18.                 endif
  19.                 writeln('D');
  20.         endif
  21. endProc
  22.